home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr25
/
findver.zip
/
FINDVER.CMD
next >
Wrap
OS/2 REXX Batch file
|
1993-03-01
|
363b
|
13 lines
/* REXX */
kernel = "\OS2KRNL"
if (stream(kernel, "command", "open read") == "READY:") then do
string = charin(kernel, , chars(kernel))
start = pos("Internal revision", string)
say substr(string, start, pos(x2c("00"), string, start) - start)
result = stream(kernel, "command", "close")
end
else
say "Can't find/open" kernel
exit